       IDENTIFICATION DIVISION.
       PROGRAM-ID. SUITE003.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
           COPY CBUC0003.
           COPY CBUC0001.
       PROCEDURE DIVISION.
      
           CALL CBU-main USING CBU-initialize CBU-MAIN-CALL-INTERFACE.
      
           MOVE "SUITE2" TO CBU-SUITE-NAME.
           MOVE "DESC SUITE2" TO CBU-SUITE-DESCRIPTION.
           CALL CBU-main USING CBU-add-suite CBU-MAIN-CALL-INTERFACE.
      
           MOVE "TS000002" TO CBU-TEST-NAME.
           MOVE "TEST2 desc" TO CBU-TEST-DESCRIPTION.
           MOVE "TS000002" TO CBU-TEST-PROG-NAME
           CALL CBU-main
                USING CBU-add-test-next CBU-MAIN-CALL-INTERFACE.
      
           CALL CBU-main USING CBU-run CBU-MAIN-CALL-INTERFACE.
           GOBACK.